home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3ar.arc / EDIT.PRG < prev    next >
Encoding:
Text File  |  1985-10-25  |  499 b   |  29 lines
  1. ******************************************** (B:EDIT.PRG)
  2. CLEAR
  3. STORE ' ' TO OPTION
  4. STORE '    ' TO MACCT
  5. USE B:INV INDEX B:ACCTS
  6. DO WHILE .NOT. EOF()
  7. SET CONFIRM ON
  8. CLEAR
  9. @ 3,1 SAY 'Want to edit some invoices '
  10. ?
  11. WAIT ' ?  ' TO OPTION
  12. IF OPTION<>'Y'
  13. CLEAR
  14. SET CONFIRM OFF
  15. @ 13,1 SAY 'Press F9 to return to main menu '
  16. RETURN
  17. ENDIF
  18. CLEAR
  19. ?
  20. ?
  21. ACCEPT 'Customer number ? ' TO MACCT
  22. FIND &MACCT
  23. SET FORM TO B:EDIT.FMT
  24. EDIT
  25. SET CONFIRM OFF
  26. CLOSE FORM B:EDIT.FMT
  27. ENDDO
  28. RETURN
  29.